1 REM
2 REM PROBLEM #24-1 :
3 REM  PRINTING PERMUTATIONS
4 REM SOLUTION BY
5 REM  ALLAN FLIPPIN
6 REM.
100 CLR:INPUT N:DIMC(N-1):FOR I=1 TO N:S$=S$+CHR$(48+I):NEXT
110 I=N-1:PRINT S$,
120 S$=LEFT$(S$,I-1)+RIGHT$(S$,N-I)+MID$(S$,I,1)
130 C(I)=C(I)+1:IF C(I)<=N-I GOTO 110
140 C(I)=0:IF I>1 THEN I=I-1 : GOTO 120